home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 1 / Literacy Segments Part 1 / background_37958.txt < prev    next >
Text File  |  1989-08-22  |  15KB  |  650 lines
  1. -- background: 37958 from stack: in
  2. -- bmap block id: 38235
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 1.1.2 Practice2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   put line (line 2 of fld "key") of answerTracker into theLocs
  11.   if theLocs is not empty then
  12.     repeat with i = 1 to number of lines in fld "origins"
  13.       get item (i*2 - 1) to (i*2) of theLocs
  14.       set the loc of fld ("label" & i) to it
  15.     end repeat
  16.   else
  17.     repeat with j = 1 to number of lines in fld "origins"
  18.       set the loc of fld ("label" & j) to (line j of fld "origins")
  19.     end repeat
  20.   end if
  21.   pass openCard
  22. end openCard
  23.  
  24. on closeCard
  25.   global answerTracker
  26.   get line 2 of fld "key"  -- says which line of global to worry about
  27.   put empty into line it of answerTracker
  28.   repeat with i = 1 to number of lines in fld "origins"
  29.     put the loc of fld ("label" & i) & "," after line it of answerTracker
  30.   end repeat
  31.   delete last char of line it of answerTracker
  32.   pass closeCard
  33. end closeCard
  34.  
  35. on moveField
  36.   get fld "decisions"
  37.   repeat until the mouse is up
  38.     if item 2 of the mouseLoc > line 1 of it
  39.     then set the loc of the target to the mouseLoc
  40.   end repeat
  41.   put the loc of the target into temp
  42.   if item 1 of the loc of the target > (line 2 of it) then
  43.     if item 2 of the loc of the target < (line 3 of it) then
  44.       validate (line 1 of fld "destinations")
  45.     else if item 2 of the loc of the target < (line 4 of it) then
  46.       validate (line 2 of fld "destinations")
  47.     else if item 2 of the loc of the target < (line 5 of it) then
  48.       validate (line 3 of fld "destinations")
  49.     else validate (line 4 of fld "destinations")
  50.   end if
  51.   if the loc of the target = temp
  52.   then set the loc of the target to line (last char of the short name of the target) of fld "origins"
  53. end moveField
  54.  
  55. on validate where
  56.   repeat with i = 1 to 4
  57.     if the short name of the target = ("label" & i) then next repeat
  58.     if the loc of fld ("label" & i) = where then exit validate
  59.   end repeat
  60.   set the loc of the target to where
  61. end validate
  62.  
  63. on hideFeedback
  64.   lock screen
  65.   hide fld "Feedback1"
  66.   hide fld "Feedback2"
  67.   hide fld "Feedback3"
  68.   hide fld "Feedback4"
  69.   hide fld "Feedback5"
  70.   hide fld "Feedback6"
  71.   hide fld "Feedback7"
  72.   hide fld "Feedback8"
  73.   hide fld "CorrectAnswer"
  74.   hide fld "MasterFeedback"
  75.   hide bg btn "Done"
  76.   unlock screen
  77. end hideFeedback
  78.  
  79. on showFeedback
  80.   lock screen
  81.   show fld "Feedback1"
  82.   show fld "Feedback2"
  83.   show fld "Feedback3"
  84.   show fld "Feedback4"
  85.   show fld "Feedback5"
  86.   show fld "Feedback6"
  87.   show fld "Feedback7"
  88.   show fld "Feedback8"
  89.   show fld "CorrectAnswer"
  90.   show fld "MasterFeedback"
  91.   show bg btn "Done"
  92.   unlock screen
  93. end showFeedback
  94.  
  95.  
  96. -- part 3 (field)
  97. -- low flags: 01
  98. -- high flags: 0000
  99. -- rect: left=18 top=1 right=38 bottom=442
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 0
  103. -- font id: 156
  104. -- text size: 24
  105. -- style flags: 10240
  106. -- line height: 32
  107. -- part name: Title
  108.  
  109.  
  110. -- part 14 (button)
  111. -- low flags: 00
  112. -- high flags: 0000
  113. -- rect: left=443 top=5 right=72 bottom=512
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Instant Reference
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   instantReference "1.1.2"
  125. end mouseUp
  126.  
  127.  
  128. -- part 15 (button)
  129. -- low flags: 00
  130. -- high flags: 2000
  131. -- rect: left=480 top=143 right=172 bottom=511
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 1310 / 1310
  134. -- text alignment: 1
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: Student Services
  140. ----- HyperTalk script -----
  141. on mousedown
  142.   SSpopUp
  143. end mousedown
  144.  
  145. on mouseup
  146.   if the mouseloc is not within the rect of me then exit to hyperCard
  147.   doSS
  148. end mouseup
  149.  
  150.  
  151.  
  152. -- part 16 (button)
  153. -- low flags: 00
  154. -- high flags: 2000
  155. -- rect: left=482 top=176 right=205 bottom=511
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 162 / 162
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Help
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   Help
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 17 (button)
  172. -- low flags: 00
  173. -- high flags: 2000
  174. -- rect: left=482 top=294 right=320 bottom=509
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 1236 / 1236
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: Last Menu
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   go to card "Communicating Story P/1"
  186. end mouseUp
  187.  
  188.  
  189.  
  190.  
  191. -- part 18 (button)
  192. -- low flags: 00
  193. -- high flags: 0000
  194. -- rect: left=478 top=319 right=341 bottom=498
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 1401 / 1401
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Prev
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.  
  206. end mouseUp
  207.  
  208.  
  209.  
  210. -- part 19 (button)
  211. -- low flags: 00
  212. -- high flags: 0000
  213. -- rect: left=493 top=319 right=341 bottom=512
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 1400 / 1400
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: Next
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.  
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 21 (field)
  230. -- low flags: 01
  231. -- high flags: 0000
  232. -- rect: left=16 top=38 right=65 bottom=441
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 0
  236. -- font id: 156
  237. -- text size: 20
  238. -- style flags: 0
  239. -- line height: 26
  240. -- part name: Subtitle
  241.  
  242.  
  243. -- part 22 (field)
  244. -- low flags: 01
  245. -- high flags: 0000
  246. -- rect: left=16 top=70 right=142 bottom=469
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 0
  250. -- font id: 156
  251. -- text size: 16
  252. -- style flags: 0
  253. -- line height: 17
  254. -- part name: Header
  255.  
  256.  
  257. -- part 23 (field)
  258. -- low flags: 01
  259. -- high flags: 0000
  260. -- rect: left=16 top=146 right=166 bottom=445
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 0
  264. -- font id: 3
  265. -- text size: 10
  266. -- style flags: 256
  267. -- line height: 15
  268. -- part name: Instruction
  269.  
  270.  
  271. -- part 42 (field)
  272. -- low flags: 81
  273. -- high flags: 2007
  274. -- rect: left=8 top=36 right=94 bottom=231
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 0 / 0
  277. -- text alignment: 0
  278. -- font id: 156
  279. -- text size: 16
  280. -- style flags: 0
  281. -- line height: 17
  282. -- part name: Feedback1
  283.  
  284.  
  285. -- part 43 (field)
  286. -- low flags: 81
  287. -- high flags: 2007
  288. -- rect: left=8 top=159 right=216 bottom=231
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 0 / 0
  291. -- text alignment: 0
  292. -- font id: 156
  293. -- text size: 16
  294. -- style flags: 0
  295. -- line height: 17
  296. -- part name: Feedback3
  297.  
  298.  
  299. -- part 44 (field)
  300. -- low flags: 81
  301. -- high flags: 2007
  302. -- rect: left=8 top=219 right=277 bottom=231
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 0 / 0
  305. -- text alignment: 0
  306. -- font id: 156
  307. -- text size: 16
  308. -- style flags: 0
  309. -- line height: 17
  310. -- part name: Feedback4
  311.  
  312.  
  313. -- part 46 (field)
  314. -- low flags: 81
  315. -- high flags: 2007
  316. -- rect: left=8 top=280 right=338 bottom=231
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 0
  320. -- font id: 156
  321. -- text size: 16
  322. -- style flags: 0
  323. -- line height: 17
  324. -- part name: CorrectAnswer
  325.  
  326.  
  327. -- part 45 (field)
  328. -- low flags: 81
  329. -- high flags: 2007
  330. -- rect: left=239 top=36 right=94 bottom=462
  331. -- title width / last selected line: 0
  332. -- icon id / first selected line: 0 / 0
  333. -- text alignment: 0
  334. -- font id: 156
  335. -- text size: 16
  336. -- style flags: 0
  337. -- line height: 17
  338. -- part name: Feedback5
  339.  
  340.  
  341. -- part 49 (field)
  342. -- low flags: 81
  343. -- high flags: 2007
  344. -- rect: left=8 top=97 right=155 bottom=231
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 0
  348. -- font id: 156
  349. -- text size: 16
  350. -- style flags: 0
  351. -- line height: 17
  352. -- part name: Feedback2
  353.  
  354.  
  355. -- part 50 (field)
  356. -- low flags: 81
  357. -- high flags: 2007
  358. -- rect: left=239 top=97 right=155 bottom=462
  359. -- title width / last selected line: 0
  360. -- icon id / first selected line: 0 / 0
  361. -- text alignment: 0
  362. -- font id: 156
  363. -- text size: 16
  364. -- style flags: 0
  365. -- line height: 17
  366. -- part name: Feedback6
  367.  
  368.  
  369. -- part 51 (field)
  370. -- low flags: 81
  371. -- high flags: 2007
  372. -- rect: left=239 top=159 right=216 bottom=462
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 0 / 0
  375. -- text alignment: 0
  376. -- font id: 156
  377. -- text size: 16
  378. -- style flags: 0
  379. -- line height: 17
  380. -- part name: Feedback7
  381.  
  382.  
  383. -- part 52 (field)
  384. -- low flags: 81
  385. -- high flags: 2007
  386. -- rect: left=239 top=219 right=277 bottom=462
  387. -- title width / last selected line: 0
  388. -- icon id / first selected line: 0 / 0
  389. -- text alignment: 0
  390. -- font id: 156
  391. -- text size: 16
  392. -- style flags: 0
  393. -- line height: 17
  394. -- part name: Feedback8
  395.  
  396.  
  397. -- part 54 (button)
  398. -- low flags: 00
  399. -- high flags: A004
  400. -- rect: left=268 top=321 right=340 bottom=413
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 0 / 0
  403. -- text alignment: 1
  404. -- font id: 0
  405. -- text size: 12
  406. -- style flags: 0
  407. -- line height: 16
  408. -- part name: Answer
  409. ----- HyperTalk script -----
  410. on mouseUp
  411.   send mouseUp to bg btn "done"
  412.   repeat with i = 1 to number of lines in fld "origins"
  413.     set the loc of fld ("label" & i) to (line i of fld "origins")
  414.   end repeat
  415.   put line 1 of fld "key" into theLocs
  416.   repeat with i = 1 to number of lines in fld "origins"
  417.     get item (i*2 - 1) to (i*2) of theLocs
  418.     set the loc of fld ("label" & i) to it
  419.   end repeat
  420. end mouseUp
  421.  
  422.  
  423. -- part 69 (field)
  424. -- low flags: 81
  425. -- high flags: 0001
  426. -- rect: left=423 top=0 right=13 bottom=466
  427. -- title width / last selected line: 0
  428. -- icon id / first selected line: 0 / 0
  429. -- text alignment: 65535
  430. -- font id: 4
  431. -- text size: 9
  432. -- style flags: 0
  433. -- line height: 12
  434. -- part name: CardTitle
  435.  
  436.  
  437. -- part 70 (button)
  438. -- low flags: 00
  439. -- high flags: 2000
  440. -- rect: left=482 top=208 right=234 bottom=509
  441. -- title width / last selected line: 0
  442. -- icon id / first selected line: 1234 / 1234
  443. -- text alignment: 1
  444. -- font id: 0
  445. -- text size: 12
  446. -- style flags: 0
  447. -- line height: 16
  448. -- part name: Lesson
  449. ----- HyperTalk script -----
  450. on mouseUp
  451.   lesson "1.1.2"
  452. end mouseUp
  453.  
  454.  
  455. -- part 72 (field)
  456. -- low flags: 01
  457. -- high flags: 0002
  458. -- rect: left=63 top=190 right=214 bottom=165
  459. -- title width / last selected line: 0
  460. -- icon id / first selected line: 0 / 0
  461. -- text alignment: 0
  462. -- font id: 156
  463. -- text size: 13
  464. -- style flags: 0
  465. -- line height: 18
  466. -- part name: label1
  467. ----- HyperTalk script -----
  468. on mouseDown
  469.   moveField
  470. end mouseDown
  471.  
  472.  
  473. -- part 73 (field)
  474. -- low flags: 01
  475. -- high flags: 0002
  476. -- rect: left=63 top=215 right=239 bottom=165
  477. -- title width / last selected line: 0
  478. -- icon id / first selected line: 0 / 0
  479. -- text alignment: 0
  480. -- font id: 156
  481. -- text size: 13
  482. -- style flags: 0
  483. -- line height: 18
  484. -- part name: label2
  485. ----- HyperTalk script -----
  486. on mouseDown
  487.   moveField
  488. end mouseDown
  489.  
  490.  
  491. -- part 74 (field)
  492. -- low flags: 01
  493. -- high flags: 0002
  494. -- rect: left=63 top=240 right=264 bottom=165
  495. -- title width / last selected line: 0
  496. -- icon id / first selected line: 0 / 0
  497. -- text alignment: 0
  498. -- font id: 156
  499. -- text size: 13
  500. -- style flags: 0
  501. -- line height: 18
  502. -- part name: label3
  503. ----- HyperTalk script -----
  504. on mouseDown
  505.   moveField
  506. end mouseDown
  507.  
  508.  
  509. -- part 75 (field)
  510. -- low flags: 01
  511. -- high flags: 0002
  512. -- rect: left=63 top=265 right=289 bottom=165
  513. -- title width / last selected line: 0
  514. -- icon id / first selected line: 0 / 0
  515. -- text alignment: 0
  516. -- font id: 156
  517. -- text size: 13
  518. -- style flags: 0
  519. -- line height: 18
  520. -- part name: label4
  521. ----- HyperTalk script -----
  522. on mouseDown
  523.   moveField
  524. end mouseDown
  525.  
  526.  
  527. -- part 47 (field)
  528. -- low flags: 81
  529. -- high flags: 2004
  530. -- rect: left=147 top=132 right=304 bottom=356
  531. -- title width / last selected line: 0
  532. -- icon id / first selected line: 0 / 0
  533. -- text alignment: 0
  534. -- font id: 156
  535. -- text size: 16
  536. -- style flags: 0
  537. -- line height: 17
  538. -- part name: MasterFeedback
  539.  
  540.  
  541. -- part 48 (button)
  542. -- low flags: 80
  543. -- high flags: A002
  544. -- rect: left=215 top=279 right=296 bottom=284
  545. -- title width / last selected line: 0
  546. -- icon id / first selected line: 0 / 0
  547. -- text alignment: 1
  548. -- font id: 0
  549. -- text size: 12
  550. -- style flags: 0
  551. -- line height: 16
  552. -- part name: Done
  553. ----- HyperTalk script -----
  554. on mouseUp
  555.   lock screen
  556.   hide fld "MasterFeedback"
  557.   hide bg btn "Done"
  558.   unlock screen
  559. end mouseUp
  560.  
  561.  
  562.  
  563. -- part 68 (button)
  564. -- low flags: 00
  565. -- high flags: A004
  566. -- rect: left=68 top=321 right=340 bottom=213
  567. -- title width / last selected line: 0
  568. -- icon id / first selected line: 0 / 0
  569. -- text alignment: 1
  570. -- font id: 0
  571. -- text size: 12
  572. -- style flags: 0
  573. -- line height: 16
  574. -- part name: Check Answer
  575. ----- HyperTalk script -----
  576. on mouseUp
  577.   lock screen
  578.   set cursor to watch
  579.   put empty into theList
  580.   get line 1 of fld "key"
  581.   repeat with i = 1 to (number of items in it)/2
  582.     put item (i*2 - 1) of it & "," & item (i*2) of it into theLoc
  583.     if the loc of fld ("label" & i) = theLoc then put "t," after theList
  584.     else put "f," after theList
  585.   end repeat
  586.   delete last char of theList
  587.   if theList = "t,t,t,t"
  588.   then put fld "feedback1" into fld "MasterFeedback"
  589. else put fld "feedback2"  into fld "MasterFeedback"
  590. show fld "MasterFeedback"
  591. show bg btn "Done"
  592. unlock screen
  593. end mouseUp
  594.  
  595.  
  596. -- part 76 (field)
  597. -- low flags: 81
  598. -- high flags: 0002
  599. -- rect: left=0 top=0 right=82 bottom=63
  600. -- title width / last selected line: 0
  601. -- icon id / first selected line: 0 / 0
  602. -- text alignment: 0
  603. -- font id: 3
  604. -- text size: 12
  605. -- style flags: 0
  606. -- line height: 16
  607. -- part name: origins
  608.  
  609.  
  610. -- part 77 (field)
  611. -- low flags: 81
  612. -- high flags: 0002
  613. -- rect: left=65 top=0 right=82 bottom=128
  614. -- title width / last selected line: 0
  615. -- icon id / first selected line: 0 / 0
  616. -- text alignment: 0
  617. -- font id: 3
  618. -- text size: 12
  619. -- style flags: 0
  620. -- line height: 16
  621. -- part name: destinations
  622.  
  623.  
  624. -- part 78 (field)
  625. -- low flags: 81
  626. -- high flags: 0002
  627. -- rect: left=130 top=0 right=82 bottom=164
  628. -- title width / last selected line: 0
  629. -- icon id / first selected line: 0 / 0
  630. -- text alignment: 0
  631. -- font id: 3
  632. -- text size: 12
  633. -- style flags: 0
  634. -- line height: 16
  635. -- part name: decisions
  636.  
  637.  
  638. -- part 79 (field)
  639. -- low flags: 81
  640. -- high flags: 0002
  641. -- rect: left=166 top=0 right=33 bottom=395
  642. -- title width / last selected line: 0
  643. -- icon id / first selected line: 0 / 0
  644. -- text alignment: 0
  645. -- font id: 3
  646. -- text size: 12
  647. -- style flags: 0
  648. -- line height: 16
  649. -- part name: key
  650.